home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / isfile / isfile.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-05-02  |  2.5 KB  |  83 lines
  1. VERSION 2.00
  2. Begin Form Frm_Main 
  3.    BackColor       =   &H00808080&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   """Does This File Exist?"" Demo Program"
  6.    ClientHeight    =   2205
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   5490
  10.    Height          =   2610
  11.    Icon            =   ISFILE.FRX:0000
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   2205
  17.    ScaleWidth      =   5490
  18.    Top             =   1140
  19.    Width           =   5610
  20.    Begin CommandButton Cmd_Check 
  21.       Caption         =   "Does this File Exist?"
  22.       Default         =   -1  'True
  23.       Height          =   435
  24.       Left            =   120
  25.       TabIndex        =   3
  26.       Top             =   600
  27.       Width           =   5235
  28.    End
  29.    Begin CommandButton Cmd_Exit 
  30.       Cancel          =   -1  'True
  31.       Caption         =   "E&xit Demo Program"
  32.       Height          =   435
  33.       Left            =   120
  34.       TabIndex        =   2
  35.       Top             =   1620
  36.       Width           =   5235
  37.    End
  38.    Begin TextBox Txt_Entry 
  39.       BackColor       =   &H00C0C0C0&
  40.       FontBold        =   -1  'True
  41.       FontItalic      =   0   'False
  42.       FontName        =   "MS Sans Serif"
  43.       FontSize        =   9.75
  44.       FontStrikethru  =   0   'False
  45.       FontUnderline   =   0   'False
  46.       ForeColor       =   &H00000000&
  47.       Height          =   375
  48.       Left            =   120
  49.       MaxLength       =   127
  50.       TabIndex        =   0
  51.       Top             =   120
  52.       Width           =   5235
  53.    End
  54.    Begin Label Lbl_IsFile 
  55.       BackColor       =   &H00C0C0C0&
  56.       BorderStyle     =   1  'Fixed Single
  57.       FontBold        =   -1  'True
  58.       FontItalic      =   0   'False
  59.       FontName        =   "MS Sans Serif"
  60.       FontSize        =   9.75
  61.       FontStrikethru  =   0   'False
  62.       FontUnderline   =   0   'False
  63.       ForeColor       =   &H00000000&
  64.       Height          =   375
  65.       Left            =   120
  66.       TabIndex        =   1
  67.       Top             =   1140
  68.       Width           =   5235
  69.    End
  70. Option Explicit
  71. Sub Cmd_Check_Click ()
  72.  Dim CheckFile As String
  73.  CheckFile = Trim$(txt_Entry.Text)
  74.  If IsFile(CheckFile) = True Then
  75.   Lbl_IsFile.Caption = CheckFile & " exists."
  76.  Else
  77.   Lbl_IsFile.Caption = CheckFile & " does not exist."
  78.  End If
  79. End Sub
  80. Sub Cmd_Exit_Click ()
  81.  Unload Me
  82. End Sub
  83.